pragma StartUseInterfaceinclude "window.frm"class myForm	extends frmMain	event sub myForm_open()		me.theUsername = "ctk"		me.title = "Welcome"		me.left = 100		me.top = 100		me.DoSomething()	end subend classsub main()	dim x as myForm	x = new myForm	x.show()	msgbox(x.theUsername)end sub